home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 153 / 153.d81 / u.banker 64 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  28 lines
  1. 10 poke53280,0:poke53281,0:printchr$(14)
  2. 20 print"[147][158]          [194] [193] [206] [203] [197] [210]   6 4"
  3. 30 print"[212]his program will modify [194]anker 64"
  4. 40 print"as described in the [211]tar [194]oard on"
  5. 50 print"[204]oadstar #138.  [201]t will change the"
  6. 60 print"[204][197][198][212]$ command in line 740 to a [210][201][199][200][212]$"
  7. 80 print"[201]t's best to use a copy rather than"
  8. 90 print"using your original [204][207][193][196][211][212][193][210] disk!"
  9. 100 print"[205]ake sure that the [215]rite-[208]rotect tab"
  10. 110 print"on the disk is not covered as this"
  11. 120 print"program writes to the disk."
  12. 130 print"[201]f you would like to make this change,"
  13. 140 print"[201]nsert [204]oadstar [201]ssue #134 [211]ide 3 into"
  14. 150 print"[196]rive #8 and [200]it [193] [203]ey."
  15. 152 print"[193]fter hitting a key, [196]o [206][207][212] touch the"
  16. 154 print"keyboard or open the disk drive door"
  17. 156 print"until the white [195]ursor appears!!!!!!"
  18. 160 geta$:ifa$=""then160
  19. 180 q$=chr$(34):f$="banker64"
  20. 190 print"[147][144]load"q$f$q$",8"
  21. 200 print"740 f[207]j=0to12:j$="q$"  "q$"+r[201]("q$"0"q$"+m[201](st[210](b%(i,j)),2),2):";
  22. 210 print"bp$=bp$+j$:"
  23. 250 print"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
  24. 260 print"poke646,1
  25. 270 [153]""
  26. 280 [129]i[178]631[164]640:[151]i,13:[130]:[151]198,10
  27. 290 [162]
  28.